home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / HyperCard 2.0 Training / Intro to HyperCard 2.0 / background_10646.txt < prev    next >
Encoding:
Text File  |  1990-08-24  |  2.3 KB  |  100 lines
  1. -- background: 10646 from stack: in.0
  2. -- bmap block id: 10918
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: IconicMenus
  6.  
  7.  
  8. -- part 5 (button)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=474 top=195 right=224 bottom=506
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 24471 / 24471
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: MapBtn
  20. ----- HyperTalk script -----
  21. -- Go to the Map stack.  "CameFrom" holds the name of this cd
  22. -- so the Map can hilite the cd the user came from.
  23. on mouseUp
  24.   global DisSpeed, CameFrom, MapMode
  25.   set the hilite of me to true
  26.   lock Screen
  27.   set the hilite of me to false
  28.   put the short name of this cd into CameFrom
  29.   visual DisSpeed
  30.   if MapMode is "graph" then
  31.     go stack "‚Ä¢HC 2.0-3"
  32.     HiliteMap
  33.   else
  34.     go to cd "indexMap" of stack "‚Ä¢HC 2.0-3"
  35.   end if
  36.   unlock screen with DisSpeed
  37. end mouseUp
  38.  
  39.  
  40.  
  41. -- part 6 (button)
  42. -- low flags: 00
  43. -- high flags: 2000
  44. -- rect: left=474 top=235 right=264 bottom=506
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 10112 / 10112
  47. -- text alignment: 1
  48. -- font id: 0
  49. -- text size: 12
  50. -- style flags: 0
  51. -- line height: 16
  52. -- part name: HomeBtn
  53. ----- HyperTalk script -----
  54. on mouseUp
  55.   answer "What do you want to do?" with "Cancel" or "Quit" or "Go Home"
  56.   if it is not "Cancel" then
  57.     global CameFrom,stakName
  58.     put the short name of this cd into CameFrom
  59.     put the short name of this stack into stakName
  60.     if it is "Quit" then doMenu "Quit HyperCard"
  61.     else if it is "Go Home" then doMenu "Home"
  62.   end if
  63. end mouseUp
  64.  
  65.  
  66.  
  67. -- part 8 (field)
  68. -- low flags: 01
  69. -- high flags: 0000
  70. -- rect: left=140 top=62 right=91 bottom=463
  71. -- title width / last selected line: 0
  72. -- icon id / first selected line: 0 / 0
  73. -- text alignment: 0
  74. -- font id: 174
  75. -- text size: 24
  76. -- style flags: 8448
  77. -- line height: 32
  78. -- part name: titleFld
  79.  
  80.  
  81. -- part 9 (button)
  82. -- low flags: 00
  83. -- high flags: 2000
  84. -- rect: left=477 top=293 right=322 bottom=501
  85. -- title width / last selected line: 0
  86. -- icon id / first selected line: 0 / 0
  87. -- text alignment: 1
  88. -- font id: 0
  89. -- text size: 12
  90. -- style flags: 0
  91. -- line height: 16
  92. -- part name: goback
  93. ----- HyperTalk script -----
  94. on mouseUp
  95.   lock screen
  96.   go to card "getting started"
  97.   unlock screen with iris close
  98. end mouseUp
  99.  
  100.